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ATTENTION 

This is a USER program. Other than requiring that it conform to submittal and review standards, 
no quality control has been imposed upon this program by DECUS. 

1 he DECUS Program Library is a cleari ng house only; it does not generate or test programs . No 
warranty, express or implied, is made by the contributor, Digital Equipment Computer Users 
Society or Digital Equipment Corporation as to the accuracy or functioning of the program or 
related material , and no responsibi lity is assumed by these parties in connection therewith . 
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□ ECUS NO. 12-138 



RBSTRRCT : 

IT IS OFTEN DESIRRBLE TO CHECK IF R CERTRIN LINCTRPE 
UNIT IS SELECTED OR WR I TE-ENRBLED BEFORE DOING 
SOME OPERRTION ON IT, IN ORDER THRT R MESSRGE 
MRV BE PRINTED IF NOT. 

ISEL IS R FGRTRRN OR SRBR CRLLRBLE FUNCTION WHICH 
RETURNS -1 IF THE UNIT SPECIFIED IS NOT SELECTED, 

RETURNS 0 IF THE UNIT SPECIFIED IS SELECTED RND NOT WR I TE-ENRBLED, 
RND RETURNS 1 IF THE UNIT SPECIFIED IS SELECTED RND WR I TE-ENRBLED. 



USRGE : 

J=ISEL<±> 



THIS WILL SET J=± IF LINCTRPE UNIT 1 IS WR I TE-ENRBLED RND SELECTED. 




